object TPersHolder
  P.Name = 'a51 Mcs51 Assembler'
  P.Extensions.Strings = (
    'a51 Assembler files (*.a51)|*.a51;*.a52'
    'x51 Assembler files (*.asm)|*.asm')
  P.SyntaxBlocks = <
    item
      Name = 'Default'
      ID = 0
      FIText = 9
      FIIntNum = 3
      FIFloatNum = 4
      FIHexNum = 3
      FIIdentifier = 5
      UseComments = True
      UseSingleLineComments = True
      UseStrings = True
      UseSingleLineStrings = True
      UseNumbers = True
      UsePrefixedNumbers = True
      UseIdentifiers = True
      UseKeywords = True
      BlockDelimiters = <>
      SingleLineCommentDelimiters = <
        item
          FontID = 10
          LeftDelimiter = ';'
        end>
      SingleLineStringDelimiters = <
        item
          FontID = 2
          LeftDelimiter = '"'
          RightDelimiter = '"'
        end>
      NumPrefixes = <
        item
          LeftDelimiter = '#'
        end>
      KeywordSets = <
        item
          FontID = 6
          Name = 'Op codes'
          Keywords = 
            'acall,add,addc,ajmp,anl,call,cjne,clr,cpl,da,dec,div,djnz,inc,jb' +
            ',jbc,jc,jmp,jnb,jnc,jnz,jz,lcall,ljmp,mov,movc,movx,mul,nop,orl,' +
            'pop,push,ret,reti,rl,rlc,rr,rrc,setb,sjmp,subb,swap,xch,xchd,xrl'
        end
        item
          FontID = 7
          Name = 'Registers'
          Keywords = '@a,@r0,@r1,a,Acc,b,c,dph,dpl,dptr,r0,r1,r2,r3,r4,r5,r6,r7'
        end
        item
          FontID = 8
          Name = 'Directives'
          Keywords = 
            'bit,code,data,db,ds,dw,equ,extrn,high,idata,low,number,org,publi' +
            'c,xdata'
        end>
      FirstIdentChars = '%@-Z_a-z'
      OtherIdentChars = '0-9?A-Z_a-z'
    end>
  P.FontTable = <
    item
      FontID = 2
      GlobalAttrID = 'String'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
    end
    item
      FontID = 3
      GlobalAttrID = 'Integer'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
    end
    item
      FontID = 4
      GlobalAttrID = 'Float'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
    end
    item
      FontID = 5
      GlobalAttrID = 'Identifier'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
    end
    item
      FontID = 6
      GlobalAttrID = 'Reserved words'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
    end
    item
      FontID = 7
      GlobalAttrID = 'Script ResWord'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
    end
    item
      FontID = 8
      GlobalAttrID = 'Defines'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
    end
    item
      FontID = 9
      GlobalAttrID = 'Plain Text'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
    end
    item
      FontID = 10
      GlobalAttrID = 'Comment'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsItalic]
    end>
  P.SyntaxVersion = 3
end
